home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
AmigActive 10
/
AACD 10.iso
/
AACD
/
Programming
/
AmigaTalk
/
general
/
Boolean.st
< prev
next >
Wrap
Text File
|
2000-02-13
|
326b
|
21 lines
Class Boolean :Object
[
& aBoolean
^ self and: [aBoolean]
|
| aBoolean
^ self or: [aBoolean]
|
and: aBlock
^ self and: [aBlock value]
|
or: aBlock
^ self or: [aBlock value]
|
eqv: aBoolean
^ self == aBoolean
|
xor: aBoolean
^ self ~~ aBoolean
]